home *** CD-ROM | disk | FTP | other *** search
/ Clickx 23 / Clickx 23.iso / Menu.dcr / 00020_knop_URL.ls < prev    next >
Encoding:
Text File  |  2005-09-14  |  817 b   |  32 lines
  1. property pLink
  2.  
  3. on beginSprite me
  4.   pLink = EMPTY
  5.   sprite(me.spriteNum).member.text = EMPTY
  6. end
  7.  
  8. on enterFrame me
  9.   if pLink.char.count > 35 then
  10.     if offset("kinepolis", pLink) <> 0 then
  11.       if sprite(me.spriteNum).member.text <> ("Meer weten over deze film?" & RETURN & "Klik hier!") then
  12.         sprite(me.spriteNum).member.text = "Meer weten over deze film?" & RETURN & "Klik hier!"
  13.       end if
  14.     else
  15.       if sprite(me.spriteNum).member.text <> "Klik hier voor meer info" then
  16.         sprite(me.spriteNum).member.text = "Klik hier voor meer info"
  17.       end if
  18.     end if
  19.   else
  20.     if sprite(me.spriteNum).member.text <> pLink then
  21.       sprite(me.spriteNum).member.text = pLink
  22.     end if
  23.   end if
  24.   updateStage()
  25. end
  26.  
  27. on mouseUp
  28.   if pLink <> EMPTY then
  29.     baOpenURL(pLink, "maximised")
  30.   end if
  31. end
  32.